#include "stdafx.h"
/*  -- translated by f2c (version 19940927).
   You must link the resulting object file with the libraries:
	-lf2c -lm   (in that order)
*/

#include "hnum_f2c.h"
namespace harlinn
{
    namespace numerics
    {
        namespace SuperLU
        {
            doublereal dcabs1_(doublecomplex *z)
            {
            /* >>Start of File<<   

                    System generated locals */
                doublereal ret_val;
                static doublecomplex equiv_0[1];

                /* Local variables */
            #define t ((doublereal *)equiv_0)
            #define zz (equiv_0)

                zz->r = z->r, zz->i = z->i;
                ret_val = abs(t[0]) + abs(t[1]);
                return ret_val;
            } /* dcabs1_ */

            #undef zz
            #undef t

        };
    };
};
